inherited FRM_PesquisaProduto: TFRM_PesquisaProduto
  Left = 691
  Top = 216
  ClientHeight = 412
  ClientWidth = 434
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    Width = 434
    Height = 412
    inherited edtPesquisar: TAdvEdit
      Width = 426
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Top = 80
      Width = 428
      Height = 305
      Columns = <
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o dos Produtos Registrados'
          Width = 253
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'COD_BARRAS'
          Title.Alignment = taCenter
          Title.Caption = 'C'#243'd. Barras'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ESTOQUE_ATUAL'
          Title.Alignment = taCenter
          Title.Caption = 'Estoque'
          Width = 60
          Visible = True
        end>
    end
    inherited pnlRodape: TPanel
      Top = 385
      Width = 428
      inherited btnConfirmar: TAdvGlowButton
        Left = 261
      end
      inherited btnCancelar: TAdvGlowButton
        Left = 353
      end
    end
    inherited pnlTitulo: TPanel
      Width = 428
      Caption = 'Pesquisar Lista de Produtos'
    end
  end
  inherited sqlPesquisar: TSQLQuery
    SQL.Strings = (
      'select'
      '  p.cod_produto,'
      '  p.descricao ||'#39'/'#39'|| p.apresentacao as descricao,'
      '  p.cod_barras,'
      '  p.estoque_atual ||'#39'/'#39'|| b.abreviacao as estoque_atual'
      'from PRODUTO p'
      
        'left join unidade_medida b on (b.cod_unidade = p.lig_cod_unidade' +
        '_medida)'
      'where p.situacao = '#39'True'#39' and p.situacao_venda = '#39'True'#39
      'order by p.descricao')
  end
  inherited cdsPesquisar: TClientDataSet
    object cdsPesquisarCOD_PRODUTO: TIntegerField
      FieldName = 'COD_PRODUTO'
      Required = True
    end
    object cdsPesquisarDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 201
    end
    object cdsPesquisarCOD_BARRAS: TStringField
      Alignment = taCenter
      FieldName = 'COD_BARRAS'
    end
    object cdsPesquisarESTOQUE_ATUAL: TStringField
      Alignment = taRightJustify
      FieldName = 'ESTOQUE_ATUAL'
      Size = 17
    end
  end
end
